home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / maillabl.zip / DEMOMAIN.DFM / DEMOMAIN.txt
Text File  |  1996-03-14  |  8KB  |  242 lines
  1. object DemoMainDlg: TDemoMainDlg
  2.   Left = 200
  3.   Top = 99
  4.   BorderStyle = bsDialog
  5.   Caption = 'TMailLabel Demo'
  6.   ClientHeight = 273
  7.   ClientWidth = 427
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   OnActivate = FormActivate
  14.   TextHeight = 16
  15.   object Panel1: TPanel
  16.     Left = 0
  17.     Top = 0
  18.     Width = 305
  19.     Height = 273
  20.     Align = alLeft
  21.     BevelOuter = bvLowered
  22.     Caption = 'Panel1'
  23.     TabOrder = 0
  24.     object MailLabel1: TMailLabel
  25.       Left = 0
  26.       Top = 0
  27.       Width = 305
  28.       Height = 273
  29.       PreDefLabelDBName = 'f:\controls\delphi16'
  30.       Addr1Link.DataSource = DataSource1
  31.       Addr1Link.DataField = 'Addr1'
  32.       Addr2Link.DataSource = DataSource1
  33.       Addr2Link.DataField = 'Addr2'
  34.       CityLink.DataSource = DataSource1
  35.       CityLink.DataField = 'City'
  36.       StateLink.DataSource = DataSource1
  37.       StateLink.DataField = 'State'
  38.       ZipLink.DataSource = DataSource1
  39.       ZipLink.DataField = 'Zip'
  40.       ExtraLink.DataSource = DataSource1
  41.       ExtraLink.DataField = 'Attention'
  42.       NameLink.DataSource = DataSource1
  43.       NameLink.DataField = 'Company'
  44.       PrintExtra = True
  45.       LabelDefinition.LabelsAcross = 0
  46.       LabelDefinition.LabelsDown = 0
  47.       Font.Color = clWindowText
  48.       Font.Height = -13
  49.       Font.Name = 'System'
  50.       Font.Style = []
  51.     end
  52.   end
  53.   object Panel2: TPanel
  54.     Left = 305
  55.     Top = 0
  56.     Width = 122
  57.     Height = 273
  58.     Align = alClient
  59.     BevelInner = bvLowered
  60.     BorderWidth = 2
  61.     TabOrder = 1
  62.     object bbtnDefineLabels: TBitBtn
  63.       Left = 8
  64.       Top = 8
  65.       Width = 105
  66.       Height = 41
  67.       Caption = '&Define Labels'
  68.       TabOrder = 0
  69.       OnClick = bbtnDefineLabelsClick
  70.       Glyph.Data = {
  71.         90010000424D9001000000000000760000002800000020000000100000000100
  72.         0400000000000001000000000000000000000000000000000000000000000000
  73.         80000080000000808000800000008000800080800000C0C0C000808080000000
  74.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F8FFFFFFFFFF
  75.         FF8F7777777777777777F0F0000000000F0F7777777777777777FFF0FFFFFFFF
  76.         0FFF7777777777777777F8F0F4F444FF0F8F7777777777777777F0F0F444F44F
  77.         0F0F7777777777777777FFF0FFFFFFFF0FFF7777777777777777F8F000000000
  78.         0F8F7777777777777777F0FFFFFFFFFFFF0F7777777777777777FFFFFFFFFFFF
  79.         FFFF7777777777777777F8F0000000000F8F7777777777777777F0F0FFFFFFFF
  80.         0F0F7777777777777777FFF0FF44F4FF0FFF7777777777777777F8F0F44F444F
  81.         0F8F7777777777777777F0F0FFFFFFFF0F0F7777777777777777FFF000000000
  82.         0FFF7777777777777777FFFFFFFFFFFFFFFF7777777777777777000000000000
  83.         0000000000000000000000000000000000000000}
  84.       Layout = blGlyphTop
  85.       NumGlyphs = 2
  86.       Spacing = -1
  87.     end
  88.     object bbtnFont: TBitBtn
  89.       Left = 8
  90.       Top = 59
  91.       Width = 105
  92.       Height = 41
  93.       Caption = '&Set Font'
  94.       TabOrder = 1
  95.       OnClick = bbtnFontClick
  96.       Glyph.Data = {
  97.         76010000424D7601000000000000760000002800000020000000100000000100
  98.         04000000000000010000130B0000130B00000000000000000000000000000000
  99.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  100.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  101.         3333333333333333333333333333333333333333FFF33FFFFF33333300033000
  102.         00333337773377777333333330333300033333337FF33777F333333330733300
  103.         0333333377FFF777F33333333700000073333333777777773333333333033000
  104.         3333333337FF777F333333333307300033333333377F777F3333333333703007
  105.         33333333377F7773333333333330000333333333337777F33333333333300003
  106.         33333333337777F3333333333337007333333333337777333333333333330033
  107.         3333333333377333333333333333033333333333333733333333333333333333
  108.         3333333333333333333333333333333333333333333333333333}
  109.       Layout = blGlyphTop
  110.       NumGlyphs = 2
  111.       Spacing = -1
  112.     end
  113.     object bbtnPrint: TBitBtn
  114.       Left = 8
  115.       Top = 109
  116.       Width = 105
  117.       Height = 41
  118.       Caption = '&Print Labels'
  119.       TabOrder = 2
  120.       OnClick = bbtnPrintClick
  121.       Glyph.Data = {
  122.         76010000424D7601000000000000760000002800000020000000100000000100
  123.         04000000000000010000130B0000130B00000000000000000000000000000000
  124.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  125.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  126.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  127.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  128.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  129.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  130.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  131.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  132.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  133.         33333337FFFF7733333333300000033333333337777773333333}
  134.       Layout = blGlyphTop
  135.       NumGlyphs = 2
  136.       Spacing = -1
  137.     end
  138.     object bbtnClose: TBitBtn
  139.       Left = 8
  140.       Top = 160
  141.       Width = 105
  142.       Height = 41
  143.       Caption = '&Close'
  144.       TabOrder = 3
  145.       OnClick = bbtnCloseClick
  146.       Glyph.Data = {
  147.         78010000424D7801000000000000760000002800000020000000100000000100
  148.         04000000000000000000120B0000120B00000000000000000000000000000000
  149.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  150.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  151.         33333333333333333333333333C3333333333333337F3333333333333C0C3333
  152.         333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
  153.         3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
  154.         333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
  155.         0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
  156.         0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
  157.         3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
  158.         33333333337773333333333333333333333333333333333333330000}
  159.       Layout = blGlyphTop
  160.       NumGlyphs = 2
  161.       Spacing = -1
  162.     end
  163.   end
  164.   object Table1: TTable
  165.     OnCalcFields = Table1CalcFields
  166.     DatabaseName = 'DBDEMOS'
  167.     TableName = 'CUSTOMER.DB'
  168.     Left = 8
  169.     Top = 8
  170.     object Table1CustNo: TFloatField
  171.       FieldName = 'CustNo'
  172.     end
  173.     object Table1Company: TStringField
  174.       FieldName = 'Company'
  175.       Size = 30
  176.     end
  177.     object Table1Addr1: TStringField
  178.       FieldName = 'Addr1'
  179.       Size = 30
  180.     end
  181.     object Table1Addr2: TStringField
  182.       FieldName = 'Addr2'
  183.       Size = 30
  184.     end
  185.     object Table1City: TStringField
  186.       FieldName = 'City'
  187.       Size = 15
  188.     end
  189.     object Table1State: TStringField
  190.       FieldName = 'State'
  191.     end
  192.     object Table1Zip: TStringField
  193.       FieldName = 'Zip'
  194.       Size = 10
  195.     end
  196.     object Table1Country: TStringField
  197.       FieldName = 'Country'
  198.     end
  199.     object Table1Phone: TStringField
  200.       FieldName = 'Phone'
  201.       Size = 15
  202.     end
  203.     object Table1FAX: TStringField
  204.       FieldName = 'FAX'
  205.       Size = 15
  206.     end
  207.     object Table1TaxRate: TFloatField
  208.       FieldName = 'TaxRate'
  209.     end
  210.     object Table1Contact: TStringField
  211.       FieldName = 'Contact'
  212.     end
  213.     object Table1LastInvoiceDate: TDateTimeField
  214.       FieldName = 'LastInvoiceDate'
  215.     end
  216.     object Table1Attention: TStringField
  217.       Calculated = True
  218.       FieldName = 'Attention'
  219.       Size = 35
  220.     end
  221.   end
  222.   object DataSource1: TDataSource
  223.     DataSet = Table1
  224.     Left = 40
  225.     Top = 8
  226.   end
  227.   object FontDialog1: TFontDialog
  228.     Font.Color = clWindowText
  229.     Font.Height = -13
  230.     Font.Name = 'System'
  231.     Font.Style = []
  232.     MinFontSize = 0
  233.     MaxFontSize = 0
  234.     Left = 72
  235.     Top = 8
  236.   end
  237.   object PrintDialog1: TPrintDialog
  238.     Left = 104
  239.     Top = 8
  240.   end
  241. end
  242.